Voici un petit diaporama permettant de vous donner de l’aide sur la navigation de notre site.
2021-11-23
Voici un petit diaporama permettant de vous donner de l’aide sur la navigation de notre site.
summary(cars)
## speed dist ## Min. : 4.0 Min. : 2.00 ## 1st Qu.:12.0 1st Qu.: 26.00 ## Median :15.0 Median : 36.00 ## Mean :15.4 Mean : 42.98 ## 3rd Qu.:19.0 3rd Qu.: 56.00 ## Max. :25.0 Max. :120.00
Si oui, voici un rapide diaporama montrant ce qui se cache derrière nos graphiques !
library(ggplot2)
library(plotly)
PointEcurieGP <- function(data_race_driver){
#Récupération des écuries et des grands prix
Ecurie <- unique(data_race_driver$Car)
gp <- unique(data_race_driver$GrandPrix)
#Initialisation des vecteurs
somme <- c()
ecurie <- c()
GP <- c()
#Somme des points des ecuries par Grand Prix
for(i in gp){
tmp_gp <- data_race_driver[data_race_driver$GrandPrix==i,c(6,8)]
for(j in Ecurie){
tmp_ecurie <- tmp_gp$Points[tmp_gp$Car==j]
somme <- c(somme,sum(tmp_ecurie))
ecurie <- c(ecurie,j)
GP <- c(GP,i)
}
}
#Data frame comportant les écuries, les grands prix et la somme des points gagnés par les écuries
position_ecurie <- data.frame(Ecurie=ecurie,GrandPrix=GP,Points=somme)
#Graphe de la sommes des points des écuries par Grand Prix
position_ecurie_graph <- ggplot(data = position_ecurie,aes(x=GrandPrix,y=Points,group=Ecurie,colour=Ecurie))+
geom_line()+
theme_bw()+
guides(fill=guide_legend("Ecuries"))+
xlab("Grands Prix")+
ylab("Nombre de points gagnes")+
theme(plot.title=element_text(hjust=0.5,size=18,face="bold"))+
theme(axis.title.x = element_text(hjust=0.5,size=15))+
theme(axis.title.y=element_text(hjust=0.5,size=15))+
theme(legend.title = element_text(size=10))+
theme(axis.text.x = element_text(face="bold", color="black", size=10, angle=30))
#Concersion en plotly
ggplotly(position_ecurie_graph)
}